home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Multi Active Maximuzer 3.0is
/
MultiActive Maximuzer 3.0is.iso
/
sirnet
/
scripts
/
scripts.z
/
MERCURY.SCR
< prev
next >
Wrap
Text File
|
1996-03-22
|
1KB
|
68 lines
!
! Copyright (c) 1995
! by CompuServe Incorporated, Columbus, Ohio
!
! The information in this software is subject to change without
! notice and should not be construed as a commitment by CompuServe.
!
! MERCURY:
! Connect to Mercury
! Success: returns %Success
! Failure: saves error msg in %FailureMsg and returns %Failure
!
!+V
! "3.8"
!-V
show "Connecting to Mercury 5000";
Tries = 5;
on cancel goto Return_Cancel;
wait until 15;
send %CR & %CR & %CR & %CR;
Wait_Mercury:
if Tries = 0 goto Mercury_Failure;
Tries = Tries - 1;
wait
! Mercury 5000 Commands
"SERVICE" goto Assign_Mercury_NUA1,
"FAILURE" goto Wait_Mercury,
! Mercury DAP commands
"01" goto Assign_Mercury_NUA2,
"82" goto Wait_Mercury,
"CLEARED" goto Mercury_Failure,
"Host Name:" goto Return_Success
until 80;
send %CR;
goto Wait_Mercury;
Assign_Mercury_NUA1:
Mercury_NUA = ",,UKCNS";
goto Send_Mercury_NUA;
Assign_Mercury_NUA2:
Mercury_NUA = "nhost.seraccess-.ukcns";
Send_Mercury_NUA:
show "Sending Mercury User Address...";
send Mercury_NUA & %CR;
goto Wait_Mercury;
Mercury_Failure:
define %FailureMsg = "Mercury not responding";
exit %Failure;
Return_Cancel:
exit %Cancel;
Return_Success:
send %CR;
exit %Success;